home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
utility
/
wxlslib.zip
/
xlslib
/
examples
/
addbox.lsp
< prev
next >
Wrap
Text File
|
1992-02-20
|
1KB
|
28 lines
(defmeth spin-proto :add-box ()
(let ((x (send self :visible-range 0))
(y (send self :visible-range 1))
(z (send self :visible-range 2)))
(send self :add-lines (list (select x '(0 1 1 0 0))
(select y '(0 0 1 1 0))
(select z '(0 0 0 0 0)))
:draw nil)
(send self :add-lines (list (select x '(0 1 1 0 0))
(select y '(0 0 1 1 0))
(select z '(1 1 1 1 1)))
:draw nil)
(send self :add-lines (list (select x '(0 0))
(select y '(0 0))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(0 0))
(select y '(1 1))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(1 1))
(select y '(1 1))
(select z '(0 1)))
:draw nil)
(send self :add-lines (list (select x '(1 1))
(select y '(0 0))
(select z '(0 1))))))